VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "XbrlPreRel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public tag As String
Public fromTag As String
Public from As XbrlPreRel
Public itemNo As Integer
Public prevSection As Integer
Public prevPreRel As Integer
Public eleOrder As Single
Public preOrder As Integer
Public level As Integer
Public fileOrder As Integer
Public section As Obj1
Property Get sectionPreNo() As Integer

sectionPreNo = section.preOrder

End Property
Property Get compkey(keyNo As Integer) As Variant

Select Case keyNo
    Case 0
        compkey = preOrder
    Case 2
        compkey = eleOrder
    Case 3
        compkey = tag
    Case 4
        compkey = preOrder
    Case 6
        compkey = fromTag
    Case 8
        compkey = Right$(tag, 5)
End Select

End Property
